(ange-ftp-expand-file-name) [windows-nt]: Handle

filenames using backslashes.

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index 5c3eb4efd7f51e1e0e2d23cdd671a79339ed9a36..6edea2c3aa5ba7e6d890619e3b7a5fde0a5192e9 100644 (file)
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -3047,6 +3047,9 @@ logged in as user USER and cd'd to directory DIR."
           (ange-ftp-real-expand-file-name name))
          ((eq (string-to-char name) ?/)
           (ange-ftp-canonize-filename name))
+         ((and (eq system-type 'windows-nt)
+               (eq (string-to-char name) ?\\))
+          (ange-ftp-canonize-filename name))
          ((and (eq system-type 'windows-nt)
                (or (string-match "^[a-zA-Z]:" name)
                    (string-match "^[a-zA-Z]:" default)))